inherited frmComissaoVendedores: TfrmComissaoVendedores
  Left = 830
  Top = 141
  Width = 629
  Height = 559
  Caption = 'Comiss'#227'o de Vendedores'
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited lblNomeForm: TsLabelFX
    Top = 480
    Width = 613
    Height = 41
  end
  inherited tbrBotoes: TsToolBar
    Width = 613
    inherited spbAlterar: TsSpeedButton
      OnClick = spbAlterarClick
    end
    inherited spbExcluir: TsSpeedButton
      OnClick = spbExcluirClick
    end
  end
  object ntbPaginas: TsNotebook [2]
    Left = 0
    Top = 65
    Width = 613
    Height = 415
    Align = alClient
    TabOrder = 1
    SkinData.SkinSection = 'CHECKBOX'
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgPrincipal'
      object pnlPrincipal: TsPanel
        Left = 0
        Top = 0
        Width = 613
        Height = 415
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object pnlVendedores: TsPanel
          Left = 1
          Top = 1
          Width = 611
          Height = 88
          Align = alTop
          TabOrder = 0
          SkinData.SkinSection = 'PANEL'
          object sLabel5: TsLabel
            Left = 6
            Top = 35
            Width = 49
            Height = 13
            Caption = 'Vendedor:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel1: TsLabel
            Left = 6
            Top = 11
            Width = 36
            Height = 13
            Caption = 'C'#243'digo:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel2: TsLabel
            Left = 6
            Top = 59
            Width = 44
            Height = 13
            Caption = 'Vig'#234'ncia:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel3: TsLabel
            Left = 145
            Top = 59
            Width = 15
            Height = 13
            Caption = 'at'#233
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object cedCodVendedor: TsCurrencyEdit
            Tag = 2000
            Left = 59
            Top = 31
            Width = 68
            Height = 21
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnExit = cedCodVendedorExit
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 0
            DisplayFormat = '#########0'
          end
          object dblVendedor: TsDBLookupComboBox
            Tag = 2000
            Left = 128
            Top = 31
            Width = 449
            Height = 21
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            KeyField = 'CODIGO_EMITENTE'
            ListField = 'RAZAO_SOCIAL'
            ListSource = dtsVendedores
            ParentFont = False
            TabOrder = 1
            OnCloseUp = dblVendedorCloseUp
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'COMBOBOX'
          end
          object cedCodigoComissao: TsCurrencyEdit
            Tag = 2000
            Left = 59
            Top = 7
            Width = 68
            Height = 21
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            OnExit = cedCodVendedorExit
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 0
            DisplayFormat = '#########0'
          end
          object dedDataInicio: TsDateEdit
            Tag = 1000
            Left = 59
            Top = 56
            Width = 86
            Height = 21
            AutoSize = False
            Color = clWhite
            EditMask = '!99/99/9999;1; '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            MaxLength = 10
            ParentFont = False
            TabOrder = 3
            Text = '  /  /    '
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
          end
          object dedDataFim: TsDateEdit
            Left = 163
            Top = 56
            Width = 86
            Height = 21
            AutoSize = False
            Color = clWhite
            EditMask = '!99/99/9999;1; '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            MaxLength = 10
            ParentFont = False
            TabOrder = 4
            Text = '  /  /    '
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
          end
          object chkAtiva: TsCheckBox
            Left = 136
            Top = 8
            Width = 87
            Height = 19
            Caption = 'Ativa (S/N)?'
            TabOrder = 5
            SkinData.SkinSection = 'CHECKBOX'
            ImgChecked = 0
            ImgUnchecked = 0
          end
        end
        object dbgProdutos: TRxDBGrid
          Left = 1
          Top = 89
          Width = 611
          Height = 325
          Align = alClient
          DataSource = dtsProdutos
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'CODIGO_PRODUTO'
              Title.Caption = 'C'#243'd. Produto'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLASSIFICACAO'
              Title.Caption = 'Class.'
              Width = 85
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DESCRICAO_PRODUTO'
              Title.Caption = 'Descri'#231#227'o Produto'
              Width = 350
              Visible = True
            end
            item
              Color = clAqua
              Expanded = False
              FieldName = 'PERCENTUAL_COMISSAO'
              Title.Caption = '% Comiss'#227'o'
              Visible = True
            end>
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgConsulta'
      object pnlConsulta: TsPanel
        Left = 0
        Top = 0
        Width = 613
        Height = 415
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object dbgConsulta: TRxDBGrid
          Left = 1
          Top = 1
          Width = 611
          Height = 413
          Align = alClient
          DataSource = dtsConsulta
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = dbgConsultaDblClick
          OnTitleClick = dbgConsultaTitleClick
          Columns = <
            item
              Expanded = False
              FieldName = 'ATIVA_SN'
              Title.Caption = 'Ativa?'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CODIGO_COMISSAO'
              Title.Caption = 'Cod. Comiss'#227'o'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DATA_INICIO'
              Title.Caption = 'Data In'#237'cio'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DATA_FIM'
              Title.Caption = 'Data Fim'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'RAZAO_SOCIAL'
              Title.Caption = 'Nome Vendedor'
              Width = 250
              Visible = True
            end>
        end
      end
    end
  end
  inherited sSkinProvider1: TsSkinProvider
    Left = 88
    Top = 408
  end
  object qryVendedores: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT EMI.CODIGO_EMITENTE,'
      '       EMI.RAZAO_SOCIAL'
      'FROM EMITENTE EMI'
      'WHERE  EMI.VENDEDOR_SN = '#39'S'#39
      'ORDER BY EMI.RAZAO_SOCIAL')
    Left = 25
    Top = 474
    object qryVendedoresCODIGO_EMITENTE: TAutoIncField
      FieldName = 'CODIGO_EMITENTE'
      ReadOnly = True
    end
    object qryVendedoresRAZAO_SOCIAL: TStringField
      FieldName = 'RAZAO_SOCIAL'
      Size = 300
    end
  end
  object dtsVendedores: TDataSource
    DataSet = qryVendedores
    Left = 97
    Top = 474
  end
  object qryProdutos: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT PRO.CODIGO_PRODUTO,'
      '       PRO.CLASSIFICACAO,'
      '       PRO.DESCRICAO_PRODUTO'
      'FROM PRODUTO PRO'
      'WHERE PRO.ATIVO_SN = '#39'S'#39
      'ORDER BY PRO.ORDEM')
    Left = 224
    Top = 393
    object qryProdutosCODIGO_PRODUTO: TAutoIncField
      FieldName = 'CODIGO_PRODUTO'
      ReadOnly = True
    end
    object qryProdutosCLASSIFICACAO: TStringField
      FieldName = 'CLASSIFICACAO'
      Size = 50
    end
    object qryProdutosDESCRICAO_PRODUTO: TStringField
      FieldName = 'DESCRICAO_PRODUTO'
      Size = 100
    end
  end
  object dtsProdutos: TDataSource
    DataSet = rxProdutos
    Left = 400
    Top = 409
  end
  object rxProdutos: TRxMemoryData
    FieldDefs = <>
    Left = 328
    Top = 409
    object rxProdutosCODIGO_PRODUTO: TIntegerField
      FieldName = 'CODIGO_PRODUTO'
    end
    object rxProdutosCLASSIFICACAO: TStringField
      FieldName = 'CLASSIFICACAO'
      Size = 50
    end
    object rxProdutosDESCRICAO_PRODUTO: TStringField
      FieldName = 'DESCRICAO_PRODUTO'
      Size = 100
    end
    object rxProdutosPERCENTUAL_COMISSAO: TFloatField
      FieldName = 'PERCENTUAL_COMISSAO'
      DisplayFormat = '#0.00%'
    end
  end
  object qryIncluirComissao: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'DATA_INICIO'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'CODIGO_EMITENTE'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'LOGIN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'ATIVA_SN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end>
    SQL.Strings = (
      'INSERT INTO COMISSAO'
      '('
      '  DATA_INICIO, '
      #9'CODIGO_EMITENTE,'
      #9'LOGIN, '
      #9'ATIVA_SN'
      ')'
      'VALUES '
      '(  '
      #9':DATA_INICIO,'
      '  :CODIGO_EMITENTE,'
      '  :LOGIN,'
      '  :ATIVA_SN'
      ')')
    Left = 56
    Top = 201
  end
  object qryIncluirComissaoProduto: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'CODIGO_COMISSAO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_PRODUTO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'PERCENTUAL_COMISSAO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end>
    SQL.Strings = (
      'INSERT INTO COMISSAO_PRODUTO'
      '('
      '  CODIGO_COMISSAO, '
      '  CODIGO_PRODUTO, '
      '  PERCENTUAL_COMISSAO'
      ')'
      'VALUES '
      '(  :CODIGO_COMISSAO,'
      '   :CODIGO_PRODUTO,'
      '   :PERCENTUAL_COMISSAO'
      ')')
    Left = 192
    Top = 201
  end
  object qryUltimaComissao: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT IDENT_CURRENT('#39'COMISSAO'#39') CODIGO_COMISSAO ')
    Left = 248
    Top = 321
    object qryUltimaComissaoCODIGO_COMISSAO: TBCDField
      FieldName = 'CODIGO_COMISSAO'
      ReadOnly = True
      Precision = 32
      Size = 0
    end
  end
  object qryConsulta: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT COM.ATIVA_SN,'
      '       COM.CODIGO_COMISSAO,'
      '       COM.DATA_INICIO,'
      '       COM.DATA_FIM,'
      '       EMI.RAZAO_SOCIAL, COM.CODIGO_EMITENTE'
      'FROM COMISSAO COM,'
      '     EMITENTE EMI'
      'WHERE COM.CODIGO_EMITENTE = EMI.CODIGO_EMITENTE'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      '')
    Left = 424
    Top = 129
    object qryConsultaATIVA_SN: TStringField
      FieldName = 'ATIVA_SN'
      Size = 1
    end
    object qryConsultaCODIGO_COMISSAO: TAutoIncField
      FieldName = 'CODIGO_COMISSAO'
      ReadOnly = True
    end
    object qryConsultaDATA_INICIO: TDateTimeField
      FieldName = 'DATA_INICIO'
      DisplayFormat = 'dd/mm/yyyy'
    end
    object qryConsultaDATA_FIM: TDateTimeField
      FieldName = 'DATA_FIM'
      DisplayFormat = 'dd/mm/yyyy'
    end
    object qryConsultaRAZAO_SOCIAL: TStringField
      FieldName = 'RAZAO_SOCIAL'
      Size = 300
    end
    object qryConsultaCODIGO_EMITENTE: TIntegerField
      FieldName = 'CODIGO_EMITENTE'
    end
  end
  object dtsConsulta: TDataSource
    DataSet = qryConsulta
    Left = 496
    Top = 129
  end
  object qryConsultaComissaoProdutos: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'CODIGO_COMISSAO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT'
      '  CODIGO_PRODUTO,'
      '  PERCENTUAL_COMISSAO'
      'FROM'
      '  COMISSAO_PRODUTO'
      'WHERE'
      '  CODIGO_COMISSAO = :CODIGO_COMISSAO')
    Left = 416
    Top = 217
    object qryConsultaComissaoProdutosCODIGO_PRODUTO: TIntegerField
      FieldName = 'CODIGO_PRODUTO'
    end
    object qryConsultaComissaoProdutosPERCENTUAL_COMISSAO: TFloatField
      FieldName = 'PERCENTUAL_COMISSAO'
    end
  end
end
